home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)woc vii 89.d64
/
menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-02-03
|
2KB
|
53 lines
10 POKE 53280,0:POKE 53281,0:PRINT"[147]"
20 POKE 53272,23
30 FORI=0TO32:PRINT"[147]"TAB(I)"[215]ORKSHOP"TAB(37-I)"[157][157][157][157][157][157][215]RITER'S"
40 FORX=0TO0:NEXT:NEXT
50 PRINTTAB(17)"[145][145][214] 1.0"
60 PRINTTAB(13)"[205]ASTER [208]ROGRAM"
70 PRINT"---------------------------------------"
80 PRINT"1.---[212]EXT [197]DITOR"
90 PRINT"2.----[207]UTLINER"
110 PRINT"3.-----[201]NFORMATION AND [201]NSTRUCTIONS"
120 PRINT"4.------[209]UIT"
130 PRINT"---------------------------------------"
140 PRINT"[150][208]LEASE PRESS THE [206]UMBER[146] OF YOUR CHOICE"
150 PRINT"****************************************"
160 GET A$
165 IF A$=""THEN 160
170 IF A$="1"THEN 500
180 IF A$="2"THEN 600
200 IF A$="3"THEN 220
210 IF A$="4"THEN NEW:END
220 REM **** INFORMATION ****
230 PRINT"[147]"
240 PRINT"[201]NSTRUCTIONS"
250 PRINT"------------"
260 PRINT"[202]UST CHOOSE THE PROGRAM YOU WOULD LIKE TO RUN BY PRESSING ITS"
270 PRINT"NUMBER. [215]AIT FOR IT TO LOAD, AND WHEN ITIS FINISHED, IT WILL"
280 PRINT"AUTOMATICALLY RUN."
290 PRINT"[208]RESS ANY KEY TO CONTINUE..."
300 GET A$
310 IF A$=""THEN 300
315 GOTO320
320 PRINT"[147]"
330 PRINT"[201]NFORMATION"
340 PRINT"-----------"
350 PRINT"[212]HIS PROGRAM IS DESIGNED BY [205]IKE [199]OMEZ."
360 PRINT"[212]EXT [197]DITOR WAS DESIGNED BY [196]AVE[211]2, AS KNOWN ON [209][204]INK. [212]HREE DOCUMENTS"
370 PRINT"ARE INCLUDED, ENTITLED 'TE DOC 1', 'TE DOC 2', AND 'TE DOC 3',"
380 PRINT"WHICH ARE THE INSTRUCTIONS FOR [212]EXT [197]DITOR."
390 PRINT"[207]UTLINER [214]ERSION 4 WAS DESIGNED BY [205]IKE [199]OMEZ, AND HAS NO SPECIAL"
400 PRINT"[215][208] FILES FOR INSTRUCTIONS, FOR THEY ARE 'BUILT-IN.'"
410 PRINT"[193]LSO INCLUDED ARE THE FIRST THREE FILES IN A SERIES ENTITLED, '[212]HE"
420 PRINT"[215]RITER'. [212]HEIR FILENAMES ARE:'TW PT1.1','TW PT1.2', AND 'TW PT1.3'."
440 PRINT"[208]RESS ANY KEY TO CONTINUE..."
450 GET A$
460 IF A$=""THEN 450
470 GOTO10
500 PRINT"[147]LOAD"CHR$(34)"TEXT EDITOR"CHR$(34)",8,1"
510 PRINT"RUN"
520 POKE 631,19:POKE632,13:POKE633,13:POKE198,3:END
600 PRINT"[147]LOAD"CHR$(34)"OUTLINER V.4"CHR$(34)",8"
610 PRINT"RUN"
620 POKE 631,19:POKE632,13:POKE633,13:POKE198,3:END